It was not easy
cuts$Plant.Name <- cuts$Plant.Name %>%
str_replace_all("^rwe_turcas_guney", "denizli rwe_turcas_guney") %>%
str_replace_all("tekirda?? santrali.*", "modern enerji tekirda?? santrali") %>%
str_replace_all("karada??$", "karada?? res") %>%
str_replace_all(".?menzelet( hes)?", "menzelet hes") %>%
str_replace_all("\\.", "") %>%
str_replace_all("hidro(\\s?elektrik santral[yi]| e\\.?s)", " hes") %>%
str_replace_all("(termik santral[yi]|\\sts\\s?)", " tes") %>%
str_replace_all("tunçbilektes", "tunçbilek tes") %>%
str_replace_all("d.*(k.*)?ç.*(s.*)?", "DGKC") %>%
str_replace_all("jeotermal (e.*s.*)", "jes")
```